(*
 Copyright (C) 2017 M.A.L. Marques

 This Source Code Form is subject to the terms of the Mozilla Public
 License, v. 2.0. If a copy of the MPL was not distributed with this
 file, You can obtain one at http://mozilla.org/MPL/2.0/.
*)

(* type: mgga_exc *)

mbeef_n := 8:
mbeef_coefs := [
  [
     1.18029330e+00,  8.53027860e-03, -1.02312143e-01,  6.85757490e-02,
    -6.61294786e-03, -2.84176163e-02,  5.54283363e-03,  3.95434277e-03
  ], [
    -1.98479086e-03,  1.00339208e-01, -4.34643460e-02, -1.82177954e-02,
     1.62638575e-02, -8.84148272e-03, -9.57417512e-03,  9.40675747e-03
  ], [
     6.37590839e-03, -8.79090772e-03, -1.50103636e-02,  2.80678872e-02,
    -1.82911291e-02, -1.88495102e-02,  1.69805915e-07, -2.76524680e-07
  ], [
     1.44642135e-03, -3.03347141e-03,  2.93253041e-03, -8.45508103e-03,
     6.31891628e-03, -8.96771404e-03, -2.65114646e-08,  5.05920757e-08
  ], [
     6.65511484e-04,  1.19130546e-03,  1.82906057e-03,  3.39308972e-03,
    -7.90811707e-08,  1.62238741e-07, -4.16393106e-08,  5.54588743e-08
  ], [
    -1.16063796e-04,  8.22139896e-04, -3.51041030e-04,  8.96739466e-04,
     2.09603871e-08, -3.76702959e-08,  2.36391411e-08, -3.38128188e-08
  ], [
    -5.54173599e-06, -5.14204676e-05,  6.68980219e-09, -2.16860568e-08,
     9.12223751e-09, -1.38472194e-08,  6.94482484e-09, -7.74224962e-09
  ], [
     7.36062570e-07, -9.40351563e-06, -2.23014657e-09,  6.74910119e-09,
    -4.93824365e-09,  8.50272392e-09, -6.91592964e-09,  8.88525527e-09
  ]
]:

$include "mbeef.mpl"

mbeef_f := (x, u, t) -> mbeef_expansion(x, t):

f := (rs, z, xt, xs0, xs1, u0, u1, t0, t1) ->
  mgga_exchange(mbeef_f, rs, z, xs0, xs1, u0, u1, t0, t1):
